Option Explicit
Sub P_Sample036()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\" & "P_Test1.txt"      'Nɮ
    MsgBox myFso.GetDriveName(Path:=myName)
    Set myFso = Nothing                                '
End Sub
